home *** CD-ROM | disk | FTP | other *** search
- object frmPicProp: TfrmPicProp
- Left = 273
- Top = 176
- HelpContext = 2
- BorderStyle = bsDialog
- Caption = 'Image Properties'
- ClientHeight = 343
- ClientWidth = 456
- Color = clBtnFace
- Constraints.MinHeight = 183
- Constraints.MinWidth = 324
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poOwnerFormCenter
- ShowHint = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- DesignSize = (
- 456
- 343)
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 157
- Height = 305
- Anchors = [akLeft, akTop, akBottom]
- end
- object Label1: TLabel
- Left = 28
- Top = 52
- Width = 89
- Height = 13
- Caption = 'Transparent color:'
- end
- object SB_BkColor: TSpeedButton
- Left = 128
- Top = 48
- Width = 23
- Height = 22
- Hint = 'Set transparent color'
- Transparent = False
- OnClick = SB_BkColorClick
- end
- object SpeedButton1: TSpeedButton
- Left = 20
- Top = 80
- Width = 133
- Height = 22
- Hint = 'Load other picture'
- Caption = '&Load picture'
- OnClick = SpeedButton1Click
- end
- object Button1: TButton
- Left = 223
- Top = 320
- Width = 75
- Height = 21
- Anchors = [akRight, akBottom]
- Caption = '&Ok'
- ModalResult = 1
- TabOrder = 2
- end
- object Button2: TButton
- Left = 299
- Top = 320
- Width = 75
- Height = 21
- Anchors = [akRight, akBottom]
- Caption = '&Apply'
- Default = True
- TabOrder = 3
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 375
- Top = 320
- Width = 75
- Height = 21
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 4
- end
- object Chk_Transp: TCheckBox
- Left = 16
- Top = 20
- Width = 129
- Height = 17
- Hint = 'Transparent'
- Alignment = taLeftJustify
- Caption = 'Transparent:'
- TabOrder = 0
- OnClick = Chk_TranspClick
- end
- object ScrollBox1: TScrollBox
- Left = 172
- Top = 7
- Width = 277
- Height = 306
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- TabOrder = 1
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 105
- Height = 105
- Cursor = crHandPoint
- Hint = 'Click to choose transparent color'
- AutoSize = True
- ParentShowHint = False
- ShowHint = True
- OnMouseDown = Image1MouseDown
- end
- end
- object CD: TColorDialog
- Ctl3D = True
- Options = [cdFullOpen, cdAnyColor]
- Left = 72
- Top = 132
- end
- object OPD: TOpenPictureDialog
- Filter =
- 'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
- 'wmf;*.emf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)' +
- '|*.jpeg|Bitmaps (*.bmp)|*.bmp|Windows Metafile (*.wmf)|*.wmf|Win' +
- 'dows Metafile (*.emf)|*.emf'
- Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
- Left = 44
- Top = 132
- end
- end
-